home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / dir / megad / megad_docs / unpack->floppy < prev    next >
Encoding:
Text File  |  1993-11-03  |  1.0 KB  |  63 lines
  1. .Key  ""
  2. set src1  "MegaD_Docs.lha"
  3. set dst  "MegaD_Docs"
  4.  
  5. echo ""
  6. echo "  This script will unpack the following lha archives:"
  7. echo ""
  8. echo "  $src1 => $dst"
  9. echo ""
  10.  
  11. lab GETDRIVE
  12. echo "  Which drive do you want to unpack to? [0,1,2,3] "  NOLINE
  13. failat 20
  14. skip >NIL: ? 
  15.  
  16. lab 0
  17.   set drive "DF0:"
  18.   skip HAVEDRIVE
  19. ;
  20. lab 1
  21.   set drive "DF1:"
  22.   skip HAVEDRIVE
  23. ;
  24. lab 2
  25.   set drive "DF2:"
  26.   skip HAVEDRIVE
  27. ;
  28. lab 3
  29.   set drive "DF3:"
  30.   skip HAVEDRIVE
  31. ;
  32.  
  33. lab HAVEDRIVE
  34. ask "  Do you have a blank unformatted disk in drive $drive?"
  35. if not WARN
  36.     echo ""
  37.     echo "  Try again when you do ..."
  38.     echo "  All Done.  Click close gadget to get rid of window."
  39.     endcli
  40. endif
  41.  
  42. echo ""
  43. echo "  ==> sys:system/format drive $drive name $dst FFS NOICONS"
  44. echo ""
  45. sys:system/format drive $drive name $dst FFS NOICONS
  46. echo ""
  47. echo "  ==> :c/lha -axm x $src1 $dst:"
  48. echo ""
  49. :c/lha -axm x $src1 $dst:
  50. echo ""
  51.  
  52. echo "  All Done.  Click close gadget to get rid of window."
  53. endcli
  54.  
  55. endskip
  56. echo "  Invalid Drive Selection, Please try again!"
  57. skip back GETDRIVE
  58.  
  59.  
  60.  
  61.  
  62.  
  63.